home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / tools / ask / ksd / source / ksdsp5.s < prev    next >
Text File  |  1998-09-29  |  845b  |  30 lines
  1. *******************************************************************************
  2. * ＫＳＤサポート関数－５
  3. *******************************************************************************
  4.  
  5.     .text
  6.     .xref    __KSD_Dev
  7.  
  8. *******************************************************************************
  9. *（５）デバイス名取得
  10. *    int    KSDDevName(unchar devname[8+1])
  11. *    return = 0 : 正常終了
  12. *           < 0 : KSDCheck()が呼び出されていない
  13. *******************************************************************************
  14.  
  15.     .xdef    _KSDDevName
  16. _KSDDevName:
  17.     moveq.l    #-1,d0        * エラー時のため<0
  18.     move.l    4(sp),a1
  19.     cmp.b    #' ',(a1)
  20.     beq    1f        * KSDCheck()が呼び出されていない
  21.     lea    __KSD_Dev(opc),a0
  22. @@    move.b    (a0)+,(a1)+
  23.     bne    @b
  24.     moveq.l    #0,d0        * ok
  25. 1:    rts
  26.  
  27. *******************************************************************************
  28.  
  29.     .end
  30.